Option Explicit
Sub N_Sample021()
    Dim i As Long
    i = 10
    MsgBox i & "" & N_Sample021_1(i) & "C"
End Sub

Function N_Sample021_1(n As Long) As Long
    If n > 1 Then
        N_Sample021_1 = n * N_Sample021_1(n - 1)
    Else
        N_Sample021_1 = 1
    End If
End Function
